1) EARLY.F4[1,LCS] and 2) UDP:EARLY.F4[NEW,LCS]	6-18-83 10:42	pages 1,1

**** File 1) EARLY.F4[1,LCS]/1P/1L
1)	COMMENT ⊗   VALID 00002 PAGES
1)	C REC  PAGE   DESCRIPTION
1)	C00001 00001
1)	C00002 00002		SUBROUTINE EXTRA 
1)	C00012 ENDMK
1)	C⊗;
1)		SUBROUTINE EXTRA 
**** File 2) UDP:EARLY.F4[NEW,LCS]/1P/1L
2)	COMMENT ⊗   VALID 00003 PAGES
2)	C REC  PAGE   DESCRIPTION
2)	C00001 00001
2)	C00002 00002	C**** EARLY.F4 ****
2)	C00008 00003		SUBROUTINE EXTRA 
2)	C00017 ENDMK
2)	C⊗;
2)	C**** EARLY.F4 ****
2)	COPYRIGHT 1982 BY LELAND SMITH
2)	C ********** EARLY MUSIC NOTATION PACKAGE ************
2)	C TO CHANGE CONVENTIONAL NOTATION ENTERED WITH '14' OR '144' TO EARLY MUSIC
2)	C NOTATION, ADD 500 TO P4 OF ALL NOTES AND RESTS. (USE 'A' COMMAND.)
2)	C THE VARIOUS NOTE SHAPES ARE DETERMINED BY THE RHYTHMIC VALUE FOUND IN P9
2)	C (OR P7 WITH RESTS).  THE SAME SHAPES CAN BE MADE BY PUTTING VALUES IN P6 IF
2)	C P9=0.  THE FOLLOWING TABLE SHOWS NUMBERS FOR BOTH METHODS.  THE RHYTHMIC
2)	C VALUE (P9 OR P7) COMES BEFORE THE SHAPE NAME.  THE P6 VALUES FOLLOW EACH NAME.
2)	C THE STANDARD NOTE VALUES WOULD BE: DOUBLE WHOLE, WHOLE, 1/2, 1/4, 1/8, 1/16.
2)	C  8 = MAXIMA = 20;      4 = LONGA = 21;   2 = BREVIS = 22;
2)	C  1 = SEMIBREVE = 23;  .5 = MINIM = 24;  .25 = SEMIMINIM = 25;
2)	C  SET 'COLORATION' IN P8 IF NOT SET BY RHYTH.(P9)  -1=BLACK, 0=WHITE HERE.
2)	C MENSURATION SIGNS ARE CONSIDERED TO BE A FORM OF 'NOTE'.  THE VERTICAL
2)	C POSITION IS SET IN P4 WITH THE 'ZERO' LEVEL BEING IN THE SECOND SPACE FROM
2)	C THE BOTTOM OF THE STAFF. (POSITION OF NOTE 'A'.)
2)	C SET P9 TO 0 AND P6 AS FOLLOWS.
2)	C MENSURATION SIGNS: P6 =30=C; 31=C WITH DOT IN MIDDLE; 32=C WITH SLASH; 
2)	C  			33=O; 34=O WITH SLASH.
2)	C  LIGATURES ARE CREATED FROM COMBINATIONS OF MAXIMA, LONGA AND BREVIS SHAPES
2)	C  OR, FOR THE SLOPED SHAPES, BY SETTING P9=0 AND P6 EQUAL TO SOME NUMBER FROM
2)	C  11 TO 19.  FOR SLOPES IT IS THE SECOND DIGIT OF THE NUMBER THAT DETERMINES
2)	C  THE GOAL OF THE SLOPE.  IF THE NUMBER IS NEGATIVE THE SLOPE WILL BE DOWNWARD.
2)	C    P4=504  P6=11 WILL MAKE A SLOPE FROM F (TREBLE CLEF) UP TO G.
2)	C    IF P6=14 THE SLOPE WILL BE FROM F UP TO C.  P4=508  P6=-14 WILL GIVE A
2)	C    SLOPE DOWN FROM C TO F.
2)	C TO MOVE ANY SLOPING LIGATURE EXACTLY ITS OWN WIDTH TO THE LEFT (FOR COMB-
2)	C INED LIGATURES) SET P9 TO -1.  P3 WILL THEN INDICATED THE POSITION OF ITS
2)	C RIGHT SIDE INSTEAD OF ITS LEFT SIDE.
2)	C  FOR THE COMBINATION LIGATURES, FIRST SET P9 TO 0. NEXT THE RIGHT HAND
2)	C SQUARE WILL BE SET.  P6=22 GIVES A SIMPLE SQUARE WITH NO STEM.(BREVIS)
2)	C FOR A DESCENDING STEM ON THE RIGHT SIDE, P6=21.(LONGA)
  1) EARLY.F4[1,LCS] and 2) UDP:EARLY.F4[NEW,LCS]	6-18-83 10:42	pages 1,1

2)	C FOR AN ASCENDING STEM ON THE RIGHT SIDE, P6=29.
2)	C FOR A STEM ON THE LEFT SIDE OF THE SQUARE SET P7 TO A NEGATIVE NUMBER.
2)	C THE ABSOLUTE VALUE OF THIS NUMBER WILL DETERMINE THE LENGTH OF THE STEM.
2)	C THE DIRECTION OF THIS LEFT STEM IS SET IN P5. UP, P5=10; DOWN, P5=20.
2)	C THE LEFT HAND SQUARE IS IS BEST ENTERED BY MAKING A COPY OF THE RIGHT ONE.
2)	C WITH THE COPY, WHEN P5 IS SET TO -1 THE SQUARE PIVOTS ON ITS LEFT SIDE.
2)	C THIS NEW NOTE MAY BE MOVED UP OR DOWN TO THE PROPER POSITION.  AS A
2)	C RESULT OF THIS PIVOTING A STEM THAT WAS ORIGINALLY ON THE RIGHT SIDE NOW
2)	C APPEARS ON THE LEFT SIDE.(STEM UP, P6=21; DOWN, P6=29)  NO STEM CAN BE
2)	C PUT ON THE RIGHT SIDE OF A REVERSED NOTE.  ANY STEM NEEDED IN THE CENTRAL
2)	C POSITION, BETWEEN THE TWO SQUARES, CAN BE ADDED TO THE RIGHT HAND NOTE BY
2)	C PUTTING THE PROPER VALUES IN P7 (NEGATIVE) AND P5 (10=↑, 20=↓).  BY
2)	C CHANGING THE VALUES OF P7 THIS CENTRAL STEM MAY BE USED TO CONNECT THE
2)	C TWO NOTES TOGETHER AS WELL AS TO EXTEND BEYOND THE LEFT HAND NOTE.
2)	C BY USING THIS PIVOTING METHOD BOTH HALVES OF A TWO NOTE LIGATURE WILL
2)	C WILL HAVE THE SAME HORIZANTAL POSITION IN P3, WHICH WILL INDICATE THE
2)	C CENTER OF THE LIGATURE.
2)		SUBROUTINE EXTRA 
***************


**** File 1) EARLY.F4[1,LCS]/2P/4L
1)		COMMON /STF/RSTFAC(8),RSTJ2
1)		COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20)
1)		COMMON/PLTR/PLT,RHT,DIS /POSI/STFF(8),JJ2,POS
1)		COMMON/ALF/INP(46),RST7,RST3,RSTX,RMINI,RINV,RA,RB,RZ,RJY,
**** File 2) UDP:EARLY.F4[NEW,LCS]/3P/4L
2)		COMMON /STF/RSTFAC(-3/4),RSTJ2
2)		COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20)
2)		COMMON/PLTR/PLT,RHT,DIS /POSI/STFF(-3/4),JJ2,POS
2)		COMMON/ALF/INP(46),RST7,RST3,RSTX,RMINI,RINV,RA,RB,RZ,RJY,
***************


**** File 1) EARLY.F4[1,LCS]/2P/14L
1)		1,(J3,JQ(1)),(NOLEDG,JQ(11)),(J11,JQ(9))
1)	CC	DATA RBIG/1.5/,RLIG/2.0/
**** File 2) UDP:EARLY.F4[NEW,LCS]/3P/14L
2)		1,(J3,JQ(1)),(NOLEDG,JQ(9))
2)	CC	DATA RBIG/1.5/,RLIG/2.0/
***************


**** File 1) EARLY.F4[1,LCS]/2P/78L
1)	7	IF(J11.EQ.0)GO TO 70
1)		JJ5=J5
1)		IF(R5.GE.20.)GO TO 72
1)	C R5=10=STEM UP, =20=STEM DOWN - TURN NOTE OVER - ADJUST POSITION
  1) EARLY.F4[1,LCS] and 2) UDP:EARLY.F4[NEW,LCS]	6-18-83 10:42	pages 2,3

1)		IF(R5.NE.10.0)GO TO 70
1)		IF(J5.NE.20)GO TO 70
1)		J5=126
1)	C MAXIMA WITH STEM UP (IN CLEFM)
1)		R8=0
1)		GO TO 73
1)	72	J5=J5+100
1)	C +100 FOR STEMS DOWN ON MINIM AND SEMIMINIM (GOES TO FILE CLEFM.DMD)
1)	73       CALL CLEFS
1)		J5=JJ5
1)		GO TO 71
1)	70       CALL CLEFS
1)		IF(J5.LT.23)GO TO 18
1)	71	IF(R8.GE.0)GO TO 1
1)		IF(J5.EQ.29)GO TO 1
**** File 2) UDP:EARLY.F4[NEW,LCS]/3P/78L
2)	7        CALL CLEFS
2)		IF(J5.LT.23)GO TO 18
2)		IF(R8.GE.0)GO TO 1
2)		IF(J5.EQ.29)GO TO 1
***************


**** File 1) EARLY.F4[1,LCS]/2P/101L
1)		GO TO 70
1)	18	IF(J7.GE.0)GO TO 1
**** File 2) UDP:EARLY.F4[NEW,LCS]/3P/86L
2)		GO TO 7
2)	18	IF(J7.GE.0)GO TO 1
***************


**** File 1) EARLY.F4[1,LCS]/2P/116L
1)		IF(R6.LT.0)RX7=-RX7
1)		R4=R4+RX7
**** File 2) UDP:EARLY.F4[NEW,LCS]/3P/101L
2)		IF(R6)RX7=-RX7
2)		R4=R4+RX7
***************


**** File 1) EARLY.F4[1,LCS]/2P/121L
1)		IF(J9.LT.0)R3=R3-27.*RSTJ2
1)	C  J7=-1= SHIFT IT TO LEFT IT'S WIDTH.
**** File 2) UDP:EARLY.F4[NEW,LCS]/3P/106L
2)		IF(J9)R3=R3-27.*RSTJ2
2)	C  J7=-1= SHIFT IT TO LEFT IT'S WIDTH.
***************
  1) EARLY.F4[1,LCS] and 2) UDP:EARLY.F4[NEW,LCS]	6-18-83 10:42	pages 2,3